Deep Throat Girls 5/Deep Throat Girls 5.iso/mac/MAC.Dir/00031_begin.ls

Text File | 1997-02-09 | 1.7 KB | 71 lines

on exitFrame
  global repeet, lupe, tiks, times, level, alienblow, play, time, rate, movie, next, commence, key
  puppetSprite(1, 1)
  puppetSprite(2, 1)
  when keyDown then keyput
  if next = 1 then
    set next to 0
    set level to level + 1
    repeat with q = 1 to 44
      puppetSprite(q, 0)
    end repeat
    set alienblow to []
    repeat with q = 1 to 33
      addAt(alienblow, q, 6)
    end repeat
    set commence to 0
    set play to 0
    set time to 0
    set rate to 1
    set movie to level + 38
    preloadMember(movie)
    set the directToStage of member movie to 1
    set the controller of member movie to 0
    puppetTempo(10)
    set the colorDepth to 32
    if the colorDepth < 32 then
      set the colorDepth to 16
    end if
    cursor(-1)
    set the cursor of sprite 5 to [23, 24]
    set the cursor of sprite 6 to [23, 24]
    set the cursor of sprite 7 to [23, 24]
    set the cursor of sprite 8 to [23, 24]
    set the cursor of sprite 9 to [23, 24]
    set the cursor of sprite 10 to [23, 24]
    set the cursor of sprite 11 to [23, 24]
    randomSound()
    go(5)
  end if
  if repeet = 0 then
    set tiks to the ticks + 30
    set repeet to 1
  end if
  if the ticks > tiks then
    set repeet to 0
    set times to times + 1
    if lupe = 1 then
      set the locH of sprite 1 to 296
      set the locV of sprite 1 to 260
      set the castNum of sprite 1 to 20
      set lupe to 0
    else
      if lupe = 0 then
        set the locH of sprite 1 to -35
        set the locV of sprite 1 to -35
        set the castNum of sprite 1 to 3
        set lupe to 1
      end if
    end if
  end if
  if times > 6 then
    puppetSprite(1, 0)
    set key to 0
    preloadMember(1, 17)
    preloadMember(66, 69)
    go(4)
  else
    go(the frame)
  end if
end